home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / intro.dir / 00012.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  1.2 KB  |  43 lines
  1. on exitFrame
  2.   global gSIVideoPath, gSIUserName, gSIUserFName, gINUserNum, gSIHDPath
  3.   unpuppet()
  4.   set gSIUserName to getUserName(gINUserNum)
  5.   set gSIUserFName to getUserFName(gINUserNum)
  6.   put gSIUserName && gSIUserFName
  7.   HSLoad(gSIUserFName)
  8.   GSLoad("awsome")
  9.   if HSStateGet("opt", "Intro") = EMPTY then
  10.     HSStatePut("sd", "installed", "0")
  11.     HSStatePut("opt", "Intro", "1")
  12.     HSStatePut("opt", "Random", "1")
  13.     HSStatePut("opt", "Idle", "1")
  14.     HSStatePut("opt", "TRPop", "1")
  15.     HSStatePut("opt", "MAFlip", "1")
  16.     HSStatePut("opt", "CRAnim", "1")
  17.     HSStatePut("opt", "BigVR", "1")
  18.     HSStatePut("opt", "Volume", "1")
  19.     set vVolume to 7
  20.   else
  21.     set vVolume to value(HSStateGet("opt", "Volume"))
  22.   end if
  23.   set the exitLock to 0
  24.   sound fadeOut 1, 90
  25.   if value(HSStateGet("opt", "Intro")) then
  26.     DVUse(gSIVideoPath & "intro")
  27.     puppetSound(0)
  28.     DVSetPlayArea(160, 120, 320, 240)
  29.     DVPlay(1, -1)
  30.     DVIdle()
  31.     set vNewTime to the timer + 60
  32.     repeat while not DVPlayP() and (the timer < vNewTime)
  33.       DVIdle()
  34.     end repeat
  35.     repeat while DVPlayP() and not (the mouseDown)
  36.       DVIdle()
  37.     end repeat
  38.     DVClose()
  39.   end if
  40.   SetVolume(vVolume)
  41.   go("exit2")
  42. end
  43.